home *** CD-ROM | disk | FTP | other *** search
/ The Macintosh Demo: Applications / Apple-MacintoshDemoApplicationsCD-1.0-1992.iso / More Information / Personal Press 2.0 / PPPouch / AutoCreate / Business ID / _Invoice NewWave / _Invoice NewWave
Encoding:
Text File  |  1992-06-08  |  9.7 KB  |  309 lines  |  [SGPA/SCPG]

  1. on Build -- New Wave Invoice
  2. global vHelvetica
  3.  
  4. put measurements into tempMeasurements
  5. dodocsetup
  6. locatefonts
  7. newpublication pages 1 columns 0 PageWidth 612 PageHeight 792 pageorientation portrait topmargin 36 bottommargin 36 leftmargin 36 rightmargin 36
  8. set gridsettings to 18,18
  9. set displayinvisibles to false
  10. set facingpages to false
  11. set gridsnap to false
  12. set lockguides to false
  13. set magneticguides to true
  14. set printcoloroptions to false
  15. set printcolornames to true
  16. set printcutouts to true
  17. set printregistrationmarks to false
  18. set printmarksoptions to no
  19. set printpageoptions to all
  20. set printtypeoptions to publication
  21. set spotcolor 1 to 0,0,0
  22. set spotcolor 2 to 65535,65535,65535
  23. set spotcolor 3 to 62167,2134,34028
  24. set spotcolor 4 to 0,32768,4528
  25. set spotcolor 5 to 577,43860,60159
  26. set spotcolor 6 to 56683,2242,1698
  27. set spotcolor 7 to 0,0,54272
  28. set spotcolor 8 to 64512,62333,1327
  29. set linepattern to 1
  30. set fillpattern to 2
  31. set color to 1
  32. set framelinetype to 1
  33. set mousecursor to busy
  34. set mousecursor to busy
  35. goto rightbackground
  36. PublicationSetup columns 1
  37. set mousecursor to busy
  38. goto page 1
  39. -- •p1 1•
  40. draw rectangle 158,251,258,275
  41. set locked of last object to true
  42. set fillpattern of last object to 0
  43. set linepattern of last object to 0
  44. set croprectangle of last object to 0,0,100,24
  45. -- •p1 2•
  46. draw Line 51,117,144,117
  47. set locked of last object to true
  48. -- •p1 3•
  49. draw Rectangle 30,36,140,106
  50. set linepattern of last object to 0
  51. set croprectangle of last object to 0,0,110,70
  52. -- •p1 4•
  53. draw rectangle 48,122,152,285
  54. set locked of last object to true
  55. set linepattern of last object to 0
  56. set croprectangle of last object to 0,0,104,163
  57. -- •p1 5•
  58. draw rectangle 156,129,199,154
  59. set locked of last object to true
  60. set linepattern of last object to 0
  61. set croprectangle of last object to 0,0,43,25
  62. -- •p1 6•
  63. draw Line 160,117,282,117
  64. set locked of last object to true
  65. set framelinetype of last object to 4
  66. -- •p1 7•
  67. draw rectangle 158,82,431,116
  68. set locked of last object to true
  69. set linepattern of last object to 0
  70. set croprectangle of last object to 0,0,273,34
  71. -- •p1 8•
  72. draw Line 49,290,575,290
  73. set locked of last object to true
  74. set framelinetype of last object to 2
  75. -- •p1 9•
  76. draw rectangle 49,325,576,685
  77. set locked of last object to true
  78. set linepattern of last object to 0
  79. set croprectangle of last object to 0,0,527,360
  80. -- •p1 10•
  81. draw Line 46,684,576,684
  82. set locked of last object to true
  83. set framelinetype of last object to 4
  84. -- •p1 11•
  85. draw rectangle 49,693,245,716
  86. set locked of last object to true
  87. set linepattern of last object to 0
  88. set croprectangle of last object to 0,0,196,23
  89. -- •p1 12•
  90. draw Line 159,270,575,270
  91. set locked of last object to true
  92. set framelinetype of last object to 2
  93. -- •p1 13•
  94. draw Line 118,290,118,682
  95. set locked of last object to true
  96. set framelinetype of last object to 12
  97. -- •p1 14•
  98. draw Line 405,290,405,682
  99. set locked of last object to true
  100. set framelinetype of last object to 12
  101. -- •p1 15•
  102. draw Line 504,291,504,685
  103. set locked of last object to true
  104. set framelinetype of last object to 12
  105. -- •p1 16•
  106. draw rectangle 156,161,219,184
  107. set locked of last object to true
  108. set linepattern of last object to 0
  109. set croprectangle of last object to 0,0,63,23
  110. -- •p1 17•
  111. draw rectangle 446,251,525,273
  112. set locked of last object to true
  113. set fillpattern of last object to 0
  114. set linepattern of last object to 0
  115. set croprectangle of last object to 0,0,79,22
  116. -- •p1 18•
  117. draw Line 158,249,574,249
  118. set locked of last object to true
  119. set framelinetype of last object to 3
  120. -- •p1 19•
  121. draw rectangle 310,251,410,275
  122. set locked of last object to true
  123. set fillpattern of last object to 0
  124. set linepattern of last object to 0
  125. set croprectangle of last object to 0,0,100,24
  126. -- •p1 20•
  127. draw rectangle 405,685,449,705
  128. set locked of last object to true
  129. set fillpattern of last object to 0
  130. set linepattern of last object to 0
  131. set croprectangle of last object to 0,0,44,20
  132. -- •p1 21•
  133. draw rectangle 405,701,440,721
  134. set locked of last object to true
  135. set fillpattern of last object to 0
  136. set linepattern of last object to 0
  137. set croprectangle of last object to 0,0,35,20
  138. -- •p1 22•
  139. draw rectangle 405,718,502,738
  140. set locked of last object to true
  141. set fillpattern of last object to 0
  142. set linepattern of last object to 0
  143. set croprectangle of last object to 0,0,97,20
  144. -- •p1 23•
  145. draw rectangle 404,738,443,759
  146. set locked of last object to true
  147. set fillpattern of last object to 0
  148. set linepattern of last object to 0
  149. set croprectangle of last object to 0,0,39,21
  150. -- •p1 24•
  151. draw rectangle 49,291,118,318
  152. set locked of last object to true
  153. set framelinetype of last object to 2
  154. set fillpattern of last object to 0
  155. set linepattern of last object to 0
  156. set croprectangle of last object to 0,0,69,27
  157. -- •p1 25•
  158. draw rectangle 124,291,193,318
  159. set locked of last object to true
  160. set framelinetype of last object to 2
  161. set fillpattern of last object to 0
  162. set linepattern of last object to 0
  163. set croprectangle of last object to 0,0,69,27
  164. -- •p1 26•
  165. draw rectangle 407,291,476,318
  166. set locked of last object to true
  167. set framelinetype of last object to 2
  168. set fillpattern of last object to 0
  169. set linepattern of last object to 0
  170. set croprectangle of last object to 0,0,69,27
  171. -- •p1 27•
  172. draw rectangle 507,291,576,318
  173. set locked of last object to true
  174. set framelinetype of last object to 2
  175. set fillpattern of last object to 0
  176. set linepattern of last object to 0
  177. set croprectangle of last object to 0,0,69,27
  178. PublicationSetup columns 1
  179. progressdialog show "Creating text…"
  180. set the mousecursor to busy
  181. link page objects 1,1 to story "autostory1"
  182. put "Invoice Number" into story "autostory1"
  183. select all text in story "autostory1"
  184. textsetup vHelvetica "bold,italic" 10 left
  185. set the mousecursor to busy
  186. link page objects 1,4 to story "Address"
  187. put " " into story "Address"
  188. select all text in story "Address"
  189. textsetup vHelvetica "italic" 10 left
  190. set the mousecursor to busy
  191. link page objects 1,5 to story "autostory3"
  192. put "Date:" into story "autostory3"
  193. select all text in story "autostory3"
  194. textsetup vHelvetica "bold,italic" 10 left
  195. set the mousecursor to busy
  196. link page objects 1,7 to story "autostory4"
  197. put "Invoice" into story "autostory4"
  198. select all text in story "autostory4"
  199. textsetup vHelvetica "bold,italic" 18 left
  200. set the mousecursor to busy
  201. link page objects 1,9 to story "autostory5"
  202. put " " into story "autostory5"
  203. select all text in story "autostory5"
  204. textsetup vHelvetica "plain" 9 left
  205. set the mousecursor to busy
  206. link page objects 1,11 to story "autostory6"
  207. put "Terms:" into story "autostory6"
  208. select all text in story "autostory6"
  209. textsetup vHelvetica "bold,italic" 10 left
  210. set the mousecursor to busy
  211. link page objects 1,16 to story "autostory7"
  212. put "To:" into story "autostory7"
  213. select all text in story "autostory7"
  214. textsetup vHelvetica "bold,italic" 10 left
  215. set the mousecursor to busy
  216. link page objects 1,17 to story "autostory8"
  217. put "Date Shipped" into story "autostory8"
  218. select all text in story "autostory8"
  219. textsetup vHelvetica "bold,italic" 10 left
  220. set the mousecursor to busy
  221. link page objects 1,19 to story "autostory9"
  222. put "P.O. Number" into story "autostory9"
  223. select all text in story "autostory9"
  224. textsetup vHelvetica "bold,italic" 10 left
  225. set the mousecursor to busy
  226. link page objects 1,20 to story "autostory10"
  227. put "Subtotal" into story "autostory10"
  228. select all text in story "autostory10"
  229. textsetup vHelvetica "italic" 10 left
  230. set the mousecursor to busy
  231. link page objects 1,21 to story "autostory11"
  232. put "Tax" into story "autostory11"
  233. select all text in story "autostory11"
  234. textsetup vHelvetica "italic" 10 left
  235. set the mousecursor to busy
  236. link page objects 1,22 to story "autostory12"
  237. put "Shipping & Handling" into story "autostory12"
  238. select all text in story "autostory12"
  239. textsetup vHelvetica "italic" 10 left
  240. set the mousecursor to busy
  241. link page objects 1,23 to story "autostory13"
  242. put "Total" into story "autostory13"
  243. select all text in story "autostory13"
  244. textsetup vHelvetica "bold,italic" 10 left
  245. set the mousecursor to busy
  246. link page objects 1,24 to story "autostory14"
  247. put "Quantity" into story "autostory14"
  248. select all text in story "autostory14"
  249. textsetup vHelvetica "bold,italic" 10 left
  250. set the mousecursor to busy
  251. link page objects 1,25 to story "autostory15"
  252. put "Description" into story "autostory15"
  253. select all text in story "autostory15"
  254. textsetup vHelvetica "bold,italic" 10 left
  255. set the mousecursor to busy
  256. link page objects 1,26 to story "autostory16"
  257. put "Unit Price" into story "autostory16"
  258. select all text in story "autostory16"
  259. textsetup vHelvetica "bold,italic" 10 left
  260. set the mousecursor to busy
  261. link page objects 1,27 to story "autostory17"
  262. put "Extension" into story "autostory17"
  263. select all text in story "autostory17"
  264. textsetup vHelvetica "bold,italic" 10 left
  265. choose maintool
  266. progressdialog hide
  267. set measurements to tempMeasurements
  268. end Build
  269.  
  270.  
  271. on locatefonts
  272. global vHelvetica, vPalatino, vTimes, vNewYork, systemfonts
  273. put fontfamilies into systemfonts
  274. if systemfonts contains "New York" then put "New York"  into vNewYork
  275. else put "Geneva" into vNewYork
  276. if systemfonts contains "Helvetica" then put "Helvetica"  into vHelvetica
  277. else put "Geneva" into vHelvetica
  278. if systemfonts contains "Times" then put "Times" into vTimes
  279. else put vNewYork into vTimes
  280. if systemfonts contains "Palatino" then put "Palatino" into vPalatino
  281. else put vTimes into vPalatino
  282.  
  283. end locatefonts
  284.  
  285. on dodocsetup
  286. set lockscreen to true
  287. Set ShuffleTextObjects to false
  288. set measurements to points
  289. set displayguides to false
  290. set view to actual
  291. set itemdel to ","
  292. set worddel to space
  293. set linedel to cr
  294. set saveglobals to true
  295. progressdialog open
  296. progressdialog show "Creating publication"
  297. end dodocsetup
  298.  
  299. on textsetup thefont, theface, thesize, thejust
  300. global vHelvetica, vPalatino, vTimes, vNewYork
  301. set styleRecomposition to false
  302. set the textfont to thefont
  303. do "set the textface to "&theface
  304. set the textsize to thesize
  305. set the rulerjustification to thejust
  306. set styleRecomposition to true
  307. end textsetup
  308.  
  309.      ÿ    Œ<BÏ